object FRotinaSunControlCorrigeCVPedidoVenda: TFRotinaSunControlCorrigeCVPedidoVenda
  Left = 246
  Top = 104
  BorderStyle = bsDialog
  ClientHeight = 360
  ClientWidth = 790
  Color = clWhite
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Comic Sans MS'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 149
    Height = 16
    Caption = 'Percentual a ser procurado:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Comic Sans MS'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 32
    Width = 150
    Height = 16
    Caption = 'Percentual a ser substituto:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Comic Sans MS'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 8
    Top = 218
    Width = 35
    Height = 16
    Caption = 'Label3'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Comic Sans MS'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object RxCalcEdit1: TRxCalcEdit
    Left = 164
    Top = 8
    Width = 40
    Height = 21
    AutoSize = False
    Ctl3D = False
    DecimalPlaces = 0
    DisplayFormat = '0'
    ButtonWidth = 0
    NumGlyphs = 2
    ParentCtl3D = False
    TabOrder = 0
  end
  object RxCalcEdit2: TRxCalcEdit
    Left = 164
    Top = 32
    Width = 40
    Height = 21
    AutoSize = False
    Ctl3D = False
    DecimalPlaces = 0
    DisplayFormat = '0'
    ButtonWidth = 0
    NumGlyphs = 2
    ParentCtl3D = False
    TabOrder = 1
  end
  object BitBtn1: TBitBtn
    Left = 280
    Top = 8
    Width = 75
    Height = 21
    Caption = 'Pesquisar'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Comic Sans MS'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 280
    Top = 32
    Width = 75
    Height = 21
    Caption = 'Executar'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Comic Sans MS'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 58
    Width = 346
    Height = 159
    Ctl3D = False
    DataSource = DSPesquisa
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 4
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Comic Sans MS'
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 360
    Top = 3
    Width = 425
    Height = 214
    Caption = '  Log '
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 5
    object Memo1: TMemo
      Left = 1
      Top = 18
      Width = 423
      Height = 195
      BorderStyle = bsNone
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 9
    Top = 235
    Width = 776
    Height = 110
    Caption = '  Descri'#231#227'o da Rotina  '
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 6
    object Memo2: TMemo
      Left = 1
      Top = 18
      Width = 774
      Height = 91
      BorderStyle = bsNone
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      Lines.Strings = (
        
          'Essa rotina foi criada em 07/06/2007 por Dyego, com intuito de c' +
          'orrigir o valor do CV no item do pedido de '
        
          'venda. Bot'#227'o Pesquisar: select PEDIDOVENDA.ped_codigo, itenspedi' +
          'dovenda.itensped_cv, cliente.cli_razao from '
        
          'PEDIDOVENDA inner join itenspedidovenda on (itenspedidovenda.ite' +
          'nsped_pedido = PEDIDOVENDA.ped_codigo)   '
        
          'inner join cliente on (cliente.cli_codigo = pedidovenda.ped_clie' +
          'nte) where (ped_data between '#39'02.05.2007 '
        
          '00:00:00'#39' and '#39'08.05.2007 23:59:59'#39') and (itenspedidovenda.itens' +
          'ped_cv = %s) and (PED_SITUACAO = 0)order by 1. '
        
          'Bot'#227'o Executar: UPDATE ITENSPEDIDOVENDA SET ITENSPED_CV = %s WHE' +
          'RE (ITENSPED_CODIGO = %s) ')
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
  end
  object CheckBox1: TCheckBox
    Left = 215
    Top = 11
    Width = 51
    Height = 17
    Caption = 'Todos'
    TabOrder = 7
  end
  object QPesquisa: TQuery
    DatabaseName = 'base'
    Left = 424
    Top = 112
  end
  object DSPesquisa: TDataSource
    DataSet = QPesquisa
    Left = 472
    Top = 128
  end
end
